SET CENT ON
set proc to sospro
set proc to boxproc
DR='N:'
STORE ' ' TO AEANAME,AEAADDR,AEACITY,AEACOUN,AEACURR
STORE .F. TO AEAHEAL,AEADECI
DO START
PL1=0
DO WHILE pl1=0
   SET COLO TO BG+/B
   CLEAR
   DO ADDRESSA
   DO ADDRTITL WITH ' F I L E    M A N A G E M E N T '
   SET COLOR TO W+/N
   @ 9, 5 CLEA TO 23,46
   SET COLO TO N/BG,W+/N
   @ 8, 3 CLEA TO 22,44
   @ 8, 3 TO 22,44 DOUBLE
   @ 9, 5 PROMPT " A .. MASTER DRUGS LIST               "
   @ 11, 5 PROMPT " B .. MASTER DISPOSABLE LIST          "
   @ 13, 5 PROMPT " C .. MASTER MEDICAL PROCEDURES       "
   @ 15, 5 PROMPT " D .. MASTER DOCTORS                  "
   @ 17, 5 PROMPT " E .. MASTER PROGRAM                  "
   @ 19, 5 PROMPT " F .. MASTER COMPANY                  "
   @ 21, 5 PROMPT " I .. MASTER SUPPLIER                 "

   SET COLOR TO W+/N
   @ 19,53 CLEA TO 23,77
   SET COLO TO N/BG,W+/N
   @ 18,51 CLEA TO 22,75
   @ 18,51 TO 22,75 DOUBLE
   @ 19,53 PROMPT " I .. PROCESS REINDEX"
   @ 21,53 PROMPT " X .. EXIT PROGRAMME "
   MENU TO PL1
   IF LAST()=27
       CLEAR
       RETURN
   ENDIF
   DO CASE
      CASE PL1=1
         DO INPDRUG
      CASE PL1=2
         HLPRO=.F.
         DO inpdisp
      CASE PL1=3
         DO INPMEDI
      CASE PL1=4
         DO INPDOCT
      CASE PL1=5
         DO INPPROG
      CASE PL1=6
         DO INPCOMP
      CASE PL1=7
         DO INPSUPP
      CASE PL1=8
         DO INDX
      CASE PL1=9
         RETURN
   ENDCASE
   PL1=0
ENDDO

